﻿Imports SFDL.LoaderExtensions
Public Class frm_groupmover

    Private Shared _var_groupmove_direction As GroupMoveDirection

    Public ReadOnly Property GetGroupMoveDirection As GroupMoveDirection
        Get
            Return _var_groupmove_direction
        End Get
    End Property

    Private Sub cmd_ok_Click(sender As Object, e As EventArgs) Handles cmd_ok.Click

        If rd_move_down.Checked = True Then
            _var_groupmove_direction = GroupMoveDirection.GroupMoveDown
        End If

        If rd_move_up.Checked = True Then
            _var_groupmove_direction = GroupMoveDirection.GroupMoveUp
        End If

        If rd_move_most_down.Checked = True Then
            _var_groupmove_direction = GroupMoveDirection.GroupMoveMostDown
        End If

        If rd_move_most_top.Checked = True Then
            _var_groupmove_direction = GroupMoveDirection.GroupMoveMostTop
        End If

        Me.Close()

    End Sub
End Class